10317
8255 
關閉。此問題不符合堆棧溢出準則。它當前不接受答案。
想改善這個問題嗎？更新問題，使其成為Stack Overflow的主題。
4年前關閉。
改善這個問題
我正在構建一個處理應用程序選擇的多個文本文件的Shiny應用程序。
輸出是一個巨大的數據幀，其中包含數百萬行和數十列。
我現在感興趣的是允許用戶交互式地過濾行，選擇列並彙總列（通過從均值，標準差，最大值，最小值，和等功能列表中進行選擇）。結果將是一個較小的數據框，匯總每個用戶選擇的數據-基本上，我需要創建一個實現dplyr庫基本功能的GUI。
總的來說，我知道如何通過手動創建一堆GUI元素並使用許多dplyr命令將它們提供給服務器功能來做到這一點。由於這似乎是一個非常標準的功能（用於過濾和匯總數據框的GUI），因此在我從頭開始構建它之前，我想知道是否有任何“現成的”東西可以按原樣使用或用作起點。
2021-02-22 08:13:08 
我知道您說過rpivotTable並不是您想要的，但是我認為可以將其配置為完成一些繁重的工作，
這是一個示例（使用rpivotTable進行操作，使用DT顯示data.frame，使用RVest解析來自DOM的innerHTML，可能會有更好的數據格式從客戶端傳遞表對象，但這是概念證明） ）：
用戶界面
圖書館（閃亮）
圖書館（DT）
庫（數據透視表）
整頁<-fluidPage（
DT :: dataTableOutput（'aSummaryTable'），
rpivotTableOutput（'RESULTS'）
）
完整頁面
server.R：
圖書館（閃亮）
庫（數據透視表）
圖書館（DT）
圖書館（rvest）
功能（輸入，輸出，會話）{
＃製作一些樣本數據
qbdata <-反應性（{
expand.grid（字母，1：3）
}）
＃清理HTML並將其存儲為React
summarydf <-eventReactive（input $ myData，{
input $ myData％>％
read_html％>％
html_table（fill = TRUE）％>％
＃原來rpivotTable中有兩個表，我們要第二個
。[[2]]
}）
＃將df顯示為DT :: datatable
輸出$ aSummaryTable <-DT :: renderDataTable（{
數據表（summarydf（），行名= FALSE）
}）
＃每當刷新配置時，使用表的內容進行回調
output $ RESULTS <-renderRpivotTable（{
rpivotTable（
qbdata（），
onRefresh =
htmlwidgets :: JS（“ function（config）{
Shiny.onInputChange（'myData'，document.getElementById（'RESULTS'）。innerHTML）;
}“）
）
}）
}
|
不是您要找的答案？瀏覽標記為dplyr閃亮的其他問題或提出您自己的問題。